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*eF TLE®*1D**WRTMFYPAG : 


Wiad Ww RRRRRRRR TTTTTTTTTT MM MM FFFFFFFREF YY YY PPPPPPPP AAAAAA GGGGGGGG 

Wwe Ww RRRRRRRR TTTTTTTTTT MM MM FFFFFFFFFF YY YY PPPPPPPP AAAAAA GGGGGGGG 

‘ial Ww RR RR TT MMMM MMMM OFF vy 7 PP AA AA GG 

‘db Ww RR RR TT MMMM MMMM OFF YY YY PP PP AA AA GG 

{a ia Ww RR RR TT MM MM OFF YY YY PP PP AA AA GG 

dial Ww RR RR TT MM MM MM OFF ae PP PP AA AA GG 

Whe! Ww RRRRRRRR TT MM MM FFFFFFFF vY PPPPPPPP AA AA GG 

‘ob WW RRRRRRRR TT MM MM FFFFFFFF “Y PPPPPPPP AA AA GG 

Ww We WW RR RR TT MM MM OFF ‘? PP AAAAAAAAAA GG GGGGGG 

Ww Ww Ww RR RR TT MM MM OFF ‘Y PP AAAAAAAAAA GG GGGG6GG 

WWW WWWwW RR RR TT MM MM OFF 1” PP AA AA GG GG cece 
Wid WWWwWw RR RR TT MM MM OFF YY PP AA AA GG GG eeee 
wh We RR RR TT MM MM OFF vy PP AA AA GGGGGG eeee 
Whe! Ww RR RR TT MM MM OFF “Y PP Ag AA GGGGGG eeee 
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eTITL 4 WRIMFYPAG = WRITE MODIFIED PAGES 
-IDENT 'V04-000 af 


COPYRIGHT (c) 1978, 1980, 1982, 1984 


i 
i; 
5 38 ea 
3* # 
= 3* DIGITAL Feu reEAY _GORPORATION, MAYNARD. MASSACHUSETTS. * 
BS § re ALL RIGHTS R : 
00 10 ie THIS te ‘icthe fs wile UNDER A LICENSE AND MAY BE USED AND COPIED * 
00 11 ;* ONLY IN ae ANCE WITH THE TERMS OF SUCH Tint AND WITH THE * 
B88 1 :* INCLUSION O THE ABOVE Sg lth ad NOTICE. THIS SO oF TW ARE OR ANY OTHER * 
8 15 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
B88 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 1? :* TRANSFERRED. ; 
0000 17 * THE INFORMATION IN THIS SOFTWARE IS SUBJECT 'O CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 \ : CORPORATION. * 
: e 
44 1 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR )* emecna OF ITS’ * 
000 ¢ ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
$000 «Sa be : 
4444 2  CouDEenerorecseseonennnesrenenennnnenCnedsonenneesncesenoneeeeoeneseeoteeses 
0000 7 3 ++ 
0000 8 ; FACILITY: 
0000 7 3 
0000 0 ; ABSTRACT: 
0000 1; 
444 § ; ENVIRONMENT: 
444 : : AUTHOR: PETER H. LIPMAN » CREATION DATE: 3-JAN-77 
$600 6 : MODIFIED BY: 
0000 7 a 
0000 3 v03-002 LJk0201 Lawrence J. Kenah 18-Apr-1983 
0000 9; Clear ‘‘disable Limit check"’ flag in up oper byte of SCHSGL_MFYLIM 
4 rt : along error path taken when page file has no room. 
0000 4g : v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 
0000 43 ; Add S$RSNDEF. 
4 44 ; 
000 45 ;-- 
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WRIMF YPAG = WRITE MODIFIED PAGES 16-SEP-1984 01:33:58 VAX/VMS Macro V04-00 P 
v04~000 DECLARATIONS g-§ eat 7 84:33:29 LEYS SRCIURTMFYPAG MAR: 1 _ d) 
47 .SBTTL DECLARATIONS 
a3 ; INCLUDE FILES: 
y SCADEF ;CONDITIONAL ASSEMBLY DEFINITIONS 
SIRPDEF [1/0 REQUEST PACKET DEFINITIONS 
SIPLDEF SPROCESSOR PRIORITY LEVELS 
4 SOPDEF TDEFINE OPCODE EQUIVALENT VALUES 
5 SPCBDEF SPROCESS CONTROL BLOCK DEFINITIONS 
: SPFLDEF SPAGE FILE CONTROL BLOCK DEFINITIONS 
SPFNDEF [PAGE FRAME NUMBER DATA BASE DEFINITIONS 
: SPHDDEF [PROCESS HEADER DEFINITIONS 
SPRDEF ‘PROCESSOR REGISTER DEFINITIONS 
00 60 SPRIDEF [PRIORITY INCREMENT CLASS DEFINITIONS 
90 61 SPTEDEF ‘PAGE TABLE ENTRY DEFINITIONS 
00 6¢ SRSNDEF TRESOURCE NUMBER DEFINITIONS 
9000 6 SSECDEF SSECTION TABLE ENTRY DEFINITIONS 
9000 64 SVADEF ‘VIRTUAL ADDRESS FIELD DEFINITIONS 
0000 66 + MACROS: 
0000 «= «467: 
600060 
9009 20 + EQUATED SYMBOLS: 
0000 72° SVIELD MPW,0,<- 
0000 te <SUCCESS, ,M>,= ;SUCCESSFUL COMPLETION BIT 
0000 = 7% <BADPAG, .M>,- ‘THIS PAGE HAD A WRITE ERROR 
9000 75 <NOTDONE, ,M> = : THESE PAGES WERE NOT WRITTEN 
9000; ; 
0900 i: ; OWN STORAGE: 
00000000 a .PSECT $$$210,LONG 
$808 ! MPWSAL presto” 1 
00000000 0000 g “LONG 0 ;ADDRESS OF PAGE TABLE ENTRY ARRAY 
004 4 MPWSAW_PHVINDEX:: 
00000000 004 5 sia Bison rords ZADDRESS OF PROCESS HEADER VECTOR INDEX ARRA 
00000000 3 ; LOM Oo ;TOTAL PAGES EVER PUT ON BAD PAGE LIST 
00000001 C 9 .IF €Q 1 
¢ 0 "PSECT $$$075,LONG 
C 1 “ALIGN LONG 
00¢ 3 NPWSA_PGFL CLUSTERS: : 
c 33 REPT } i 
C 95 “ENDR 
¢ % MPWSA_SECTCLUSTERS: : 
¢ 3 SREPT. = 121 
c 8 . 0 
..% z 
‘34 ? .LONG 0 sBACKWARD FAILURE COUNT 
. % ; MPWSL_BACKUPFAIL: : 
£4 <LONG 0 [UNUSED 


WRIMFYPAG 
v04-000 


0000 


oo 


SOOOGOMOMOOOOOOO =2 
o 
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— MESES EERE AM Htarae Btn 


-LONG 0 ;FORWARD FAILURE COUNT 
MPWSL_COUNT: : 


eL 
-ENDC 
RERATAAAT RATATAT K AAA EA TAA ERERAAAHAAATARKAKeeeeHeeeKeReeeeeeeereee 
eeeneeeereerenee THIS ENTIRE MODULE MUST BE RESIDENT seeeeeeereereeree 
~-PSECT SMMGCOD 


* 
fF PRR ARE REAR A EERE AAA AERA AERA AARAARAAEARAARERERERERAARAeee eee 


zo 
n~ 


—DOOOCOO 


MEW" OOONOUS 


4A 4 5 4 ss ss 
Sete Ge Ge Ge 


o 
. 


G 12 


SOOCSOSo 


FIMO AL NSS VNLOSCP PFO 


eM AVE CAL LED IPL ON STACK 
= 07 EXTZV AASV | “Beta Sa8) ANS VPN>.- :GET ORIGINAL PAGE COUNT 
5a 38 MOVL TRPSLe 1OST1(R DRI gGET ERROR STATUS AND TRANSTERRED BYTE COUNT 
BICL PWSM_BADPAG ! MPWSM_NOTD R11 CLEAR FL 
MOVL 70 OMEcOUEST™ “PACKET ADDRESS 
BSBW £5 RO agen SDEALLOCATE THE PACKET 
CLRL = R6 INI pre INDEX 
EXTZV #<16+VASV_VPN>,#<16-VASV_VPN>,R11,R7 ; TRANSFERRED PAGE COUNT 


BEQL 90% TBRANCH If NO PAGES SUCCESSFULLY TRANSFERRED 
20$:  MOVL j#@W*MPWSAL_PTECR6].RO  :GET PAGE FRAME NUMBER OF NEXT PAGE 
CVTWL aW*MPWSAWTPHVINDEXCRO) RA TAND. Weclon inet PROCESS 
238 [BRANCH IF NOT SWAPVBN WRITE 
EXTZV #0,#15,R4,R4 [FIX UP THE PHV INDEX 


54 


WRIMF YPAG = WRITE MODIFIED PAGES 16-SEP-1984 01:33:58 VAX/VMS M V04- 
v04-000 mODIEIED PAGE WRITE COMPLETION AST gS EE -13be 84:33:28 EeYS. SRCTORTRFYERG HAR: 1 — 3) 
1 ae .SBTTL MODIFIED PAGE WRITE COMPLETION AST 
; FUNCTIONAL DESCRIPTION: 
lee : THIS ROUTINE IS A KERNEL MODE AST WHICH DOES TH ANUP OPERAT 
103 ; TO COMPLETE THE WRITING OF THE MODIFIED PAGES. i Ago Sfants econ eae: 
4 ; THE NEXT MODIFIED PAGE WRITE IF THERE IS ANY TO DO. 
§ ; CALLING SEQUENCE: 
; BSBW WRITEDONE 
6 ! INPUT PARAMETERS: 

50 1 : ; IPL = ASTDEL 

00 33 R5 = AST CONTROL BLOCK = I/0 REQUEST PACKET 
2093 5 ; IMPLICIT INPUTS: 

909 ? ; NONE E 
0900 139 : OUTPUT PARAMETERS: Ge 
9000 141 : R4, RS ALTERED i¢ 
9000 148 : IMPLICIT OUTPUTS: IR 
Ba iss pare i 
$000 143 > COMPLETION CODES: IR 
9000 148 : IR 

000 190 | ne: 4 

208 131 ; SIDE EFFECTS: ma 

00 138 : NONE a 

0 154; fila 

$31 : 

00 13 WRITEDONE : mu 
1FCO 8F BB 158 PUSHR #°M<R6,R7,R8,R9,R10,R11, AP> : PRESERVE NON-VOLATILE REGISTERS le 
138 DSBINT #IPL$_SYNCH NTERLOCK FOR PFN DATA BASE MANIPULATION a 

161 mF 

16¢ me 

16 ME 

164 ME 

165 ME 

166 ME 

16 MF 

189 at 
i : 
1% ME 

17 MF 

174 ME 


w 
N 
uw 
@ 
eS 8 So vw 
ow 
oo ~n 
alma) al 
eV UIMMOF FO 
PANOOWUIA INS 
7 
m—- wo-mowooo mm 
“Co MOWTSOOPFO 


MWA 2 2 ao 


; IF DELPAG IS WAITING FOR THIS WRITE COMPLETION, THE RPTEVT BIT IS SET 


70S: BBC #PFNSV_RPTEVT,R8,80$ BRANCH IF NO REPORT EVENT REQUESTED 
MOVZBL #P R1$_TOCOM,R2 31/0 COMPLETE PRIORITY CLASS 
RPTEVT PEC REPORT PAGE ig “COMPLETE 
gos: AOBLSS +f ne $.08 ;LOOP THROUGH ALL PAGES 
0$: BLBS BRANCH IF co. “nite HAD a en 
INCL ONE MORE PAGE FOR THE ERROR PAGE 
BBCS ang ig 8 :BRANCH IF NAVEN® * PROCESSED THE ERROR PAGE 


: NOW PROCESS THE UNWRITTEN PAGES IF ANY 


07 58 
52 
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WRTMF YPAG = WRITE MODIFIED PAGES 16-SEP-1984 01:33:58 VAX/VMS Macro v04-00 Page 
v04-000 MODIEIED PAGE WRITE COMPLETION AST §-8 ety 84:33? ; YOYS SRCTURTMFYPAG. MAR; 1 ° (3) 
oc 11 9 BRB 25$ AND IN N THE HE CASE OF aA MRETE RROR 
58 a p 8 228: BIT s<nPUSH_ BADPAG ! MPWSM LNOTDONED RTT Not SUCCESSFULLY TRANSFERRED? 
0009" DF4Q 80 : if BISB #PFNSM ghOPiey av’ PFNSAB_ sfnittnod :NOTE PAGE STILL MODIFIED 
8 00 9 DF4 4 25$: MOVB a@W*PFNSAB TYPE YPE AND RPTEVT BIT 
: ED 004 CMPZV RerNGy AGI APFGS. pactye’ = ;PROCESS PAGE TABLE? 
6 1 BNEQ 40 . ;BRANCH IF NOT 
5154 p MOVL :PROCESS HEADER VECTOR INDEX 
FFAG' 7 BSBW MRGSDECPHDREF 1 ZONE LESS PROCESS HEADER REF 
A [AT PAGE WRITE COMPLETION 
A 40$:  DECREF Gt R=60$ TONE LESS REFERENCE 
O€ 58 01 1 0066 BBC #MPWSV_BADPAG,R11,50$ ;BRANCH IF NOT PAGE WRITE ERROR PAGE 
5 A 006A MOVZBL #PFNSC”BADPAGLST,R [PLACE THIS PAGE 
FF90" 30 960 BSBW MMGSINSPFNT [ON THE BAD PAGE LIST 
srgseenl | 06 INCL RPUSGL BADPAGTOTAL :COUNT IT 
FFB5" 39 5 50$: BSBW  MMGSRELPFN ;RELEASE THE PAGE 
54 0000'DF44 B 60$:  CVTWL aW*PHVSGL_PIXBASCR4],R4 i CALCULATE PCB ADDRESS FROM PHV INDEX 
16 19 6 1 BLSS 80S ‘BRANCH IF PCB IS GONE 
54 Q000'DF44 00 5 a@W*SCHS$GL_PCBVECCR4],R4 :FETCH PCB ADR 
00 24 A4 10 €4 0 9 BBSC  § #PCB$V_SWPVBN,PCBSL_STS(R4),70$ ;DONE WITH SWPVBN WRITE IF ANY 
O8E 
O8E 
0 
0 
0 
099 
09D 


0 
0 
89 56 5 
5 
5 
80 5B 0 


57 8 MOVL R10,R7 ;RESET Teh TO ORIGINAL ro Wet 
A DECL R6 ;IN ORDER TO EXECUTE THE LOOP 0 OR MORE TIME 
58 MOVB + ahi SUCCESS ! MPWSM _WOTDONES- R1i ; COMPLETE THE OPAGES. NOT TRANSFE 


BRB 
100$: SETIPL a? BACK hy CALLED IPL 
PUSHL @# ;NO 1/0 PACKET ALLOCATED Y YET 
CMPL W*SCHSGL_MFYCNT,W*SCHSGL. FTO TRY Fok ANOTH PAGES ON MODIFY LIST 


ANOTHER CLUSTER? 
BGTRU GET _NXT_ CLUSTER BRANCH YE 
BRB NOMOREPAGES NO, ALL DONE FOR NOW 


0000° CF 


0000° 


NA OH HF FQOOOQDOODOOOOOCOWOOO OOOO OW Oo Woocsc9NcV 
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DOOOOSOSOOOOOCSCO: 

oo 

PP 

moO 
POPPOPIPOPONIPONOPOPIPONOPOPONPOPONUPNY 9 


—f OOo mMmovNM 
or "5 OUIO >) 
-—_— «- OF OUT 
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WRTMF YPAG - WRITE MODIFIED PAGES 16-SEP-1984 01:33:58 VAX/VMS Macro V04-00 Page 
v04-000 WRTMFYPAG = WRITE MODIFIED PAGES mi ioe 1 §h:83:28 LEYS SRCIURTMFYPAG MAR: 1 . (8) 
c 3 a .SBTTL WRTMFYPAG = WRITE MODIFIED PAGES 
c , ; FUNCTIONAL DESCRIPTION: 
¢C : : THIS ROUTINE GATHERS A CLUSTER OF PAGES OF LIKE KIND FROM THE 
C t MODIFIED PAGE LIST AND WRITES THEM BACK TO THEIR BACKING STORE ADDRESSES. 
¢ 8 : FOR PAGING FILE PAGES, THE ADDRESSES ARE REALLOCATED AS A CONTIGUOUS BLOCK 
oc R AND THE PAGES ARE WRITTEN BACK IN ONE OPERATION. 
c 1 ; CALLING SEQUENCE: 
o¢ : BSBW = MMGSWRTMFYPAG 
o¢ 5 : INPUT PARAMETERS: 
f 5 : IPL = 0 
c 33 : IMPLICIT INPUTS: 
5 41 : NONE 
o¢ ‘8 : OUTPUT PARAMETERS: 
aoe 43 : R4, RS ALTERED 
O¢ ‘3 : IMPLICIT OUTPUTS: 
o¢ 49 : NONE 
0c 31 : COMPLETION CODES: 
en 
g0¢ 38 : SIDE EFFECTS: 
oc 2§ : NONE 
33 
C 61 : NEED TO ALLOCATE AN 1/0 PACKET AND WAIT IF NONE AVAILABLE 
¢ 66 ; eee TT IS ASSUMED THAT THIS PROCESS IS RUNNING WITH RESOURCE WAIT ENABLED 
C 64 GET_IRP: 
FF3D° 39 ¢ 65 BSBW EXESALLOCIRP ;ALLOCATE AN I/O REQUEST PACKET 
73 E C 66 BLBS __RO,GOT_IRP SBRANCH IF GOT ONE, MAY HAVE WAITED 
cé BUG_CHECK MPWACCIRP, FATAL [FAILED TO ALLOCATE 1/0 REQUEST PACKET 
CA $3 ENABLE LOCAL_BLOCK 
CA 5 NOSPACE : 
0003'CF 94 OOCA as CLRB W*SCHSGL_MFYLIM + 3 sENABLE THRESHOLD CHECKING AGAIN 
11 ¢ 3 BRB 5$ 
D 75 NOMOREPAGES: 
9000 CF "CR OD D 0% MOVL  W*SCHSGL_MFYLIMSV,W°SCHSGL_MFYLIM ;RE-ENABLE LIMIT CHECK 
ef "CR OD D MOVL  W*SCHSGL"MFYLOSV,W*SCHSGL_AFYLOLIM ;RESTORE LOW LIMIT 
0 ‘CF OD DE 278 MOVL  W*SCHSGL~CURPCB,RO ;GET PCB ADDRESS 
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v04-000 


00 24 


00 0000" 


0000' CF 


F9 0000' 


54 


52 


50 


AO 


50 


15 00 
0000° CF 
01 


CF 00° 


1FCO 8F 
7E 


0000' CF 


0000 ' DF 
87 


6— 52 
0000' CF 


ore 
56 


dO 


~<— 
on 
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Soooocoooocoooooooooooooooooooooooooooo: 


me a a ed a a td 8 at td dt = ot = ss 8 8 a = = = So so 


PPP EEE PWN WIA WIAIROPOPOPOPOPOPONOPOPOPOPUPON) 2 BOO FF MMM 


oz 
Oo 
oC 
ras 
cn 


DWOWWD OFS LBM OOWNAINININING OF 999998 NNN OOM WD NINN FOS FP VIWOO & Of — TN COCOW 


AAA AAAAAAA HA A.AANA.AAAA.AAAAAA AA. AAA. AHI AIPOPIPOPIPIPOPPININPINNPONUNONONOPONONNyD 


ae 


AIALAAAIAPOPOPIPONINPINPINPONPIND 


tt at 8 wt 3 = SF PFOOODOOOOCOCOCOCVOOOOOOOOOOWMOccccccce~) 


MEW OOD NEW 9 ODA UNE WWI 9 OD NAMES WIN 9 OONAUE WI" OO OONOUS W000 


—rm 


D PAGES $ et :5 AX/VMS Macro Vv04-00 Page 
TE MODIFIED PAGES i 1382 8}: 33: 2 YeYS. SRCJWRTMF YPAG.MAR; 1 ° aS 
BBSS — #PCBSV_WAKEPEN, PCBSL_STS(RO) .5$. SET WAKE PENDING TO FORCE 
SsuAP WAP StHE HEDULE RE-EVALUATI 
58: BBCC! $*#s sy oft. y We SCHSGB. sib -MODIFIED PAGE WRITER INACTIVE 
10$:  MOVZBL #RSN reer Sab conace WAIT THAT IS SATISFIED 
BSBW SCH [DECLARE MODIFIED PAGE WRITER DONE 
Ist ve CHSGL_MFYCNT 718 LIST EMPTY 
MOVZBL #RSNS MPLEMPTY, RO :SET RESOURCE WAIT THAT IS SATIS LED 
BSBW  -SCHSR RAVA [DECLARE MODIFIED LIST EMPT 
15$: MOVL (SP)+,R sUNUSED 1/0 PACKET TO RELEASE? 
BEQL 208 ‘BRANCH IF NOT 
MOVZBL #IRPSC_LENGTH,IRPS$W_SIZE(RO) ;SET SIZE OF PACKET 
SBW  EXESDEANONPAGED :DEALLOCATE THE 1/0 REQUEST PACKET 
20$:  ENBINT "RESTORE CALLER'S IPL 
POPR #*M<R6,R7,R8,R9,R10,R11,AP> :RESTORE NON-VOLATILE REGISTERS 
RSB ;AND’ RETURN 
DISABLE LOCAL_BLOCK 
MMGSWRTMF YPAG: : 
CMPZV #PTESY PFN #PTESS PEN, W*SCHSGL MFYLIM,= ;ENOUGH PAGES ON MODIFIED 
HSGL_MF YC E CIST TO CONSIDER WRITING? 
BLEQ te 8 aN IF YES 
10$: R THING TO DO FOR NOW 
20$:  BBSSI S*#SCHSV_MPW,W*SCHSGB_ sb 96580 3D0 NOTHING IF ORL READY ACTIVE 
: FIRST ENTRY TO MODIFIED PAGE WRITER 
7 PUSHR #NcR6, R7,R8,R9,R10,R11,AP> ;SAVE NON-VOLATILE REGISTERS 
CLRQ ss =( SP ;SAVED IPL = 0, NO IRP ALLOCATED 
: SEE IF THERE ARE ANY MORE PAGES TO BE WRITTEN 
: O(SP) = SAVED 1/0 REQUEST PACKET ADDRESS OR ZERO IF NONE ALLOCATED YET 
: 4(SP) = CALLERS IPL 
: IPL = ASTDEL OR LOWER 
GET_NXT_CLUSTER: 
MOVL  W*SCHSGL_CURPCB,R4 :GET PCB ADDRESS OF THIS PROCESS 


Sete Sete 


REMQUE 


a 
So 
—_ 
— 
zD 
wv 


SETIPL 


MOVL 
GET_PAGE_ TYPE: 
BEQL 


Qv*IOCSGL_IRPFL.R2 
GET_IRP 
R2 ($2 
#IPL$_SYNCH 

sep rNSAL _MFYLSTHD,RO 
NOMORE PAGES 


PAGET ILE, 


BADBAKADR, - 
SWPVBN 


weeet NOTE THAT PCBSW_DIOCNT(R4) IS ASSUMED GREATER THAN 0 
weeee SIMULTANEOUS 1/0 REQUESTS WILL INVALIDATE THIS ASSUMPTION 


GET AN I/0 REQUEST PACKET 
BRANCH IF NONE ON SIDE LIST 


:SAVE_IRP ADDRESS 


;RAISE TO SYNCH FOR THE DURATION 
FIRST PFN IN MODIFIED PAGE LIST 
sBRANCH IF LIST IS EMPTY 
;SET_UP TO PROCESS THIS PFN 
INIT INDEX TO PTE ARRAY 
DISPATCH ON BACKING STORE TYPE 
PAGING FILE PAGE 
SECTION PAGE (PROCESS OR GLOBAL) 
;GLOBAL BACKING STORE ADDRESS 
;SWPVBN, WRITE BACK TO SWAP FILE 
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= WRITE MODIFIED PAGES S pI 4 :58 VAX/VMS Macro v04-00 Page "1 
WRTMFYPAG = WRITE MODIFIED PAGES a 1382 8}: 33: ?? Heys" eR SR cid RIMF YPAG. MAR; 1 . (3) 
1 ? 6 BADBAKADR 
f BUG. CHECK IVBAKADIO, FATAL s INVALID BACKING STORE ADDRESS FOR 1/0 
8 33 | : NO PAGE FILE VBN'S AVAILABLE IN THIS PAGE FILE 
158 341 NO_PAGEFILE: 
OOF9 BF BA 158 4g POPR wencRd R3,R4,R5,R6,R7> ;RECOVER REGISTERS FROM STACK 
FF68 «= 31 OO1SF 34 BRW NOSPACE SEXIT, IF NO SPACE TO WRITE STUFF 
16 44 NEXT_MFYPAG: 
gi 45 PFN_REFERENCE 
16 28 MOVZWL yg Ax FLINKCROJ, RO>,=- ;CHAIN TO NEXT PAGE 
16 4 OPCODE=MOVL 
1 48 tOAceceys NONPAGED 
DA 11 168 49 BRB GET_PAGE_ TYPE ;AND PROCESS IT 
19a 31 i ; PAGE FILE PAGE, GATHER A CLUSTER FROM THE SAME PAGE FILE 
16A 2g PAGEFILE: 
08 18 EF O16A 354 EXTZV #PFNSV_PGFLX,#PFNSS_PGFLX,R2 RZ. jPAGE FILE INDEX 
OOF9 8F 8B O16F 28 PUSHR #NCRO; =R3,R4.R5,R6,R7> :SAVE P EN, SVA APTE. PCB, ,PHD,PTE INDEX, FILE 
0000'DF47 DO 0175 «357 MOVL § aW*MMGS$GL PAGSUPYCCR?J, as otet Ne ace Fite CONTROL BLOCK ADDRESS 
52. 22 A3. 9A «(0178 358 MOVZBL PFL$B_ALLOCSIZ(R3),R2 | ;DESIRED CLUSTER SIZE 
Fev" 30 O17F 359 S$: BSBW AABSACLDEPACE ALS ALLOCATE A CLUSTER 
13° «1 or 2 360 BNEQ  20$ SBRANCH IF WE HAVE ALLOCATION 
52 10 Co 0184 361 SUBL #16,R2 SALLOCATION FAILED, AiR SMALLER CLUSTER 
09 15 0187 6¢ BLEQ 10$ ‘BRANCH IF ALREADY AT MINIMUM 
22 a3 é 90 0189 36 MOVB  R2,PFL$B_ALLOCSIZ(R3) SET NEW SIZE TO ATTEMPT FROM NOW ON 
04 A3 D4 018D 364 CLRL = PFL$L_STARTBYTE(R3) SSTART AT BEGINNING OF MAP 
ED 11 019 63 BRB 5% [TRY AGAIN 
FE6B' 39 019 67 10$:  BSBW  MMGSALLOCPAGFIL2 sALLOCATE SPACE, ANY AMOUNT OK 
2” 4 019 rs) BEQL § NO_PAGEFILE :BRANCH IF NONE, NO WRITING CAN BE DONE 
58 52. pO 0197 49 20$: MOVL R27R11 3SA VE NUMBER OF PAGES ALLOCATED 
58 50 dO 019A 0 MOVL  RO.RB ‘AND THE STARTING PAGE FILE VBN 
OOF9 BF «BA 019D 371 POPR #*M<RO,R3,R4,R5,R6,R7> ;RECOVER PFN, SVAPTE 
59 5B DO ial es MOVL  R11,R9 [NUMBER OF PAGEFILE PAGES ALLOCATED 
ay as : AT THIS POINT THE REGISTERS CONTAIN THE FOLLOWING VALUES: 
° = 
1A4 id: : Rg = SYSTEM VIRTUAL aAdoREss OF PAGE TABLE ENTRY 
1A 377: R4 = PCB ADDRESS FOR THE opr OCESS IN WHICH THIS CODE IS RUNNING 
1A4 £8 : R5 = PHD ADDRESS OF THE PROCESS WHICH OWNS THE MODIFIED PAGE 
1A4 379: R6 = INDEX TO NEXT ENTRY 0 USE IN PTE AND PHVINDEX ARRAYS 
1A4 0: R7? = PAGE FILE INDE 
1A4 1: RS = NEXT PAGE FILE VBN TO USE 
1A4 : : R9 = NUMBER OF PAGE FILE VBN'S NOT YET USED IN THE CLUSTER ALLOCATED 
1A 33 R11 = NUMBER OF PAGE FILE VBN'S ALLOCATED IN THE CLUSTER 
1A4 5 Par ILCLUSTER: 
5B OD 1A 6 PUSHL RN nti :SAVE COUNT OF ALLOCATED PAGE FILE 
the MOVZWL <OUFPENEAx BL INKCRO), .-(SP) >,= ;REMEMBER WHERE TO RESTART SCAN OF L 
1A6 aa NONPARED 
1AC ; CLRL sINIT COUNT OF CLUSTER TO 0 
O16E 30 O1AC 392 BSBW 3s PTESCAN [TRY TO GET ADJACENT PAGES TO THIS ONE 
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WRIMFYPAG = WRITE MODIFIED PAGES 16-SEP-1984 :58 VAX/VMS Macro v0’=00 Page 
v04-000 WRIMFYPAG = WRITE MODIFIED PAGES §- -SEP- 1382 Le 33: 3 Heys. SRCJWRTMF YPAG.MAR; 1 . RS 
1AF 0-393; MOVL § MPWSL_COUNT,RO :GET THE COUNT 
AF 34 ; INCL MPWSATPGFLCLUSTERSCRO] BUMP THE COUNT 
1AF 96 ; 
1AF 39 ; DONE WITH THIS CLUSTER OF PAGE TABLE ENTRIES 
1AF 38 ; IF MORE PAGE FILE VBN'S ARE LEFT, SCAN MODIFIED LIST FOR MORE PAGES 
1AF ; iN SAME PAGE FILE. 
1AF 400 : O(SP) = SAVED PFN (OR 0) TO LINK FORWARD FROM 
TAF 4 1 : 4(SP) = NUMBER OF PAGE FILE VBN'S ALLOCATED 
0801 8F BA OIAF 4 : ' POPR #*M<RO,R11> :RO = SAVED PFN T9 LINK FORWARD 
183 404 R11 = = NUMBER PAGE FILE VBN'S ALLOCATED 
59 5B 56 C3 01B3 405 SUBL3 —_-R6, R11 *NO. OF PAGE FIL E VBN'S NOT USED 
187 4 $ ; DISABLE TH THE E FOLLOWING 6 Because THIS MIGHT RETURN A SMALL ALLOCATION WITHOUT 
1B7 408 : C Rou iy"newscu _MINLIM sARE WE AT THRESHOLD TO SHUT OFF CLUSTER 
24 15 0187 40 BLEQ iBRAN NCH IF USED A L THAT WE SHOULD 
0 05 0189 410 TSTL 1008 :P NO IS LIST 
07 if 1BB 411 BNEQ 70% ‘GET FLINK AS NEXT CANDIDATE 
50 0000' CF pg 018 aig MOVL W°PFNSAL_ MFYLSTHD,RO | :NEXT CANDIDATE FROM FRONT OF LIST 
0104 414 708: PFN_REFERENCE 
0104 415 MOVZWL <aW®PFNSAx. FLINKCROJ.RO>,- :CHAIN TO NEXT PFN IN LIST 
ics 416 LONG_OPCODE=MOVL 
1044] TRACESSYS  NONPAGED 
11. 13 O1CA 418 75$: BEQL 1008 :BRANCH IF END OF LIST 
00cs5 §6330 «01CC:)«=— 419 80S: BSBW GETPFNCTX SET UP TO PROCESS THIS PFN 
51 DS O1CF 420 TSTL = RV :PAGE F ILE VBN? 
F112 O10) 421 BNEQ 70% BRAN HOF NOT 
57 52 08 18 ED 1D 4 ; CMPLV BPENSV. PGFLX,#PFNSS POFLE RO: MO “SAME PAGE FILE INDEX? 
FFC?. 31 1DA 4 4 BRW PAGFILCLUSTER [FIND ANOTHER PTE CLUSTER 
1p 4 $ : SET UP TO WRITE THIS CLUSTER OF PAGES 
58 58 56 C3 O01DD 428 100$:  suBL3 R6,RB.R FORM AND SAVE FIRST PAGE FILE VBN 
53 0000'DF47 DO O1E1 429 MOVL = aw nes _PAGSWPVCCR7], RS sADDRESS OF PAGE FILE CONTROL BLOCK 
51 59 00 1E7 430 MOVL  R9,R1 Y PAGE FILE VBN'S TO DEALLOCATE? L( 
06 1 1EA 431 BEQL =: 140$ :BRANCH IF THEY WERE ALL USED 
50 58 00 TEC 43¢ MOVL _R8B,RO [SET VBN NUMBER OR AREA TO DEALLOCATE S| 
1EF 434 ; THERE ARE R1 PAGES OF PAGE FILE ALLOCATED BUT NOT USED STARTING WITH VBN RO. | 
TE 4 5 : MUST RETURN THEM TO THE PAGE FILE Ui 
FEOE' 30 TEE 4 $ : BSBW MMGSDEALLOCPAGFIL ;FREE THE PAGES IN THE FILE $| 
1F2 4 5 NOW SET_UP 10 DO THE CALL TO BUILDPKT L! 
1F2 440: R3 = PAGE FILE CONTROL BLOCK ADDRESS 
1F2 441: R os oP AGES TO TRANSFER L! 
1F 44g : R?_ = PAGE FILE INDEX 
It 44. : R11 = STARTING PAGEFILE VBN 
1F2 445 ASSUME SECSL_ vBN EQ PFLSL_VBN 
1F 44g SURE SECSL WINDOW EQ PFCSL_ WINDOW 
50 19 A3 58 C1 O1F2 447 140$: nDOL R11 st L_VBN(R3),RO ~ ;FORM VBN IN PAGE FILE 
52 OC A3~ ODO 1? 448 PFLS$L_WINDOW(R3) 3 a8 ‘WINDOW ADDRESS 


— 


4 12 
WRTMFYPAG = WRITE MODIFIED PAGES 16-SEP-1984 01:33:58 VAX/VMS Macro V04-00 Page 1 
v04~000 WRIMFYPAG = WRITE MODIFIED PAGES ~$EE=1 383 84:33:28 ESS. SRCJWRIMEY YPAG.MAR; 1 7 (8) | 
1FB 4450; 0( SP) = ADDRESS OF 1/0 REQUEST PACKET 
1FB 451: 4(SP) = CALLER'S IPL 
1FB 4452 : RO = VBN IN FILE TO WRITE 
1FB 453 ; R2 = ADDRESS OF WINDOW FOR FILE 
1FB 454 ; R4 = PROCESS CONTROL BLOCK ADDRESS FOR THE PROCESS IN WHICH THIS CODE IS RUNNING 
1FB 439 ; RO = NUMBER OF PAGES TO WRITE 
1FB 439 MPW_BLDPKT: 
51 56 09 78 O1FB 428 ASHL = —- #9, R6 RI :NUMBER OF BYTES 10 WRITE 
53 9900" DF DE 1FF O45 MOVAL aw RPUSAL _PTE,R3 SSVAPTE FOR TRANSFER 
4 460 MOVL SP)+ iGET 1/0 PACKET ADDRESS 
14.05 FDOFS CF DE 7 46} MOVAL W*WRITEDONE,IRPSL_ASTPRM(R5S) :ADDRESS OF KERNEL AST 
dD 4 : ;FOR WRITE COMPLETION N PROCESSING 
23 AS) 1F = Q000' CF 83 0D 46 SUBB3 W*MPWSGB_PRIO,#31,IRPSB_PRI(R5) ;SET PRIORITY FOR TRANSFER 
FDE9' 30 14 464 BSBW EXESBLDPRTSWPW “;BUILD AND QUEUE THE 1/0 REQUEST PACKET 
0 7 466 : R4 NO LONGER HAS PCB ADDRESS IN IT 
6 V7 468 , ENBINT ;BACK TO CALLED IPL 
0000000 1A 470 IF GT. CA$_MEASURE 
oooo'cr 56 C 1A 471 ADDL 6-W*PASSGL_PWRITES :COUNT THE PAGES WRIT TEN 
O000'CF 06 0 1F 42g INCL Goeussee _PWRITIO sAND THE NUMBER OF WRITE REQUESTS 
0 474 ° 
1FCO 8F BA 6 473 POPR #*M<R6,R7,R8,R9,R10,R11,AP> s;RESTORE NON-VOLATILE REGISTERS 
0208 47 ; 
0 8 478 SECTION PAGE - TRY TO FORM A CLUSTER OF THESE 
0 480 ° 
0 cai .ENABL LSB 
5 ass SECTION: 
57 52 v0 0 484 MOVL R2,R7 :BACKING STORE ADDRESS 
59 O000'CF 3C 6 8 489 MOVZWL WAMPWSGW_MPWPFC,RO SMAXIMUM NUMBER OF PAGES TO CLUSTER 
486 ; CLRL  MPWSL_COONT SINIT COUNT OF CLUSTER 
OOEKA 30 6 487 BSBW PTESCAN [LOOK AT ADJACENT PTE'S FOR A CLUSTER TO WRI 
488 ; MOVL  MPWSL_COUNT.RO [GET THE COUNT 
489 ; INCL = MPWSA- SECTCLUST RSCRO] :BUMP THE COU dM 
50 0000'DF oD 490 MOVL aW*MPOSA :GET STARTING PAGE NUMBER 
52 0000'DF40 =D 38 491 MOVL aW*PFENSA L=BARERO 1-3 [GET ITS BACKING STORE ADDRESS 
53 0000'DF40 00 3 49¢ MOVL  aW*PFNSAL-PTELCROJ.R SAND ITS PAGE TABLE ENTRY ADDRESS 
6 $38 : RS = PROCESS HEADER ADR ASSOCIATED WITH THIS SVAPTE FROM ORIGINAL GETPFNCTX CALL 
FDB9' 30 0244 496 10S:  BSBW  MMNGSINIBLDPKT ; TRANSLATE BACKING STORE TO VBN AND WINDOW 
B2 11 47 49 BRB MPW_BLDPKT 'GO QUEUE THE REQUEST 
43 139 THIS PAGE IS A SWPVBN PAGE AND IS TO BE WRITTEN BACK TO THE SWAP FILE 
49 0; RATHER THAN ITS NORMAL BACKING STORE ADDRESS 
49 ; éuPVBN: 
3E 0000'CF 00° €0 49 ; BBS S*#SCHSV_SIP,W*SCHSGB_SIP 408 DON'T PROCESS. SWAP VBN'S 
51 42 AS 35 4F 5 MOVZWL PHDSW CuVINDER (RED Rl :GET PROCESS HEADER VECTOR INDEX 
51 §0000'DF41 53 6 CVTWL  a@W*PHUSGL_PIXBASCRIJ,R1 :GET PROCESS INDEX 
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FIED PAGES 16-SEP-1984 33:5 AX/VMS Macro V04-00 Page 11 
WRITE MODIFIED PAGES met 84:33:28 LEYS SRCIURTMFYPAG MAR: 1 - ih 
7 BLSS PROCESS GONE sBRANCH IF PROCESS IS NO LONGER AROUND 
: HOVE av sch GL PcavECCRI],R7 :GET PCB ADDRESS 
MOVZWL pce W_APTENT(R?) RO Z FORM VBN IN SWAP SLOT 
0 ADDL R2,R9 :R2 HAD THE SWAP VBN_ 
11 ADDL  PCBSL_WSSWP(R7) RO [FORM SWAP FILE BACKiws STORE ADDRESS 
1 CLRW W*PFRSAW SWPVBNCROJ ALL BONE WITH THE SWPVBN FIEL 
1 BBSS  § #PCBSV_SWPVBN,PCBSL_STS(R7),20$ ;NOTE SWPVBN WRITE IN PROGRESS 
14 208: MOVL AP sSTARTING PTE RANGE 
15 MOVL  R3,R10 SENDING PTE RANGE 
16 MNEGL #1.R7 :SET PTESV_TYPO 
BSBW SCAN_DONE :PUT JUST THIS PAGE IN MPW PTE ARRAY 
18 : R9, R10 ASSUMED PRESERVED 
i & MOVQ = RO, R2 *R2 = BACKING STORE ADR, R3 = SVAPTE 
3 : BBCS #15, aW*MPWSAW_PHVINDEX,10$ ; INDICATE SWAP VBN PAGE WRITE 
223 BRB 10$ :SET UP FOR BUILDPKT 
3 5 : DO NOT PROCESS THIS MODIFIED PAGE WITH SWPVBN SET SINCE SWAPPER IS ACTIVE 
3 ; dos: BRW NEXT_MFYPAG ;SKIP THIS MODIFIED PAGE 
; ; .OSABL LSB 
331 : PROCESS WAS DELETED AND SWAP VBN WAS SET IN PFN DATA BASE 
238 PROCESS_GONE: 
534 BUG_CHECK PROCGONE FATAL :PROCESS NOT IN SYSTEM 
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PHDOR,=- 
; SYSPHD- 
BADTYP: BUG_CHECK BADPAGTYPE ,FATAL BAD PAGE TYPE 
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WRIMFYPAG - WRITE MODIFIED PAGES 16-SEP-1984 :33:58 VAX/VMS Macro v04-00 Page 1 
v04-000 GETPFNCTX g- aoaty bh: 33:38 SYS.SRCIJWRTMF YPAG.MAR; 1 ° (2) 
3 § ~SBTTL GETPFNCTX 
8 } ; CALLING SEQUENCE: 
94 40 ; BSBW GETPFNCTX 
94 41; 
94 $ 3; INPUTS: 
94 43; 
94 44 ; RO = PFN 
94 45 ; 
94 23 ; OUTPUTS: 
94 47; 
94 48 ; RO = PFN (PRESERVED) 
8 94 49 ; Ri = TYPE OF BACKING STORE ADDRESS 
94 50 ; = Q IF PAGING FILE 
8 94 22) : = 1 IF SECTION ADDRESS 
94 26 3 = § IF ILLEGAL 
0294 553; B IF SWPVBN 
0294 554; = 4 IF NOT A PAGE ON THE MODIFIED PAGE LIST (CHKNXTPTE) 
0294 555: R2 = BACKING STORE ADDRESS OR SwPV 
8 94 e293 ; R5 = SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTRY 
94 $2 3 RG = PRESERVED 
0294 58 ; R5 = PROCESS HEADER ADDRESS 
0294 559; 
53 0000'DF40 00 6 3 a SETPFNCTX: aW*PFNSAL_PTECROJ,R3 SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTR 
a - . L N Y 
51 0000'DF40 O03 00 EF 0294 206 EXTZV #PFNSV_PAGTYP, APFNSS_PAGTYP,aW*PFNSAB_TYPELROJ,R1 ;PAGE TYPE 
Q2A 564 ASSUME PFNSC_PROCESS EQ 0 
02A 65 ASSUME PFNSC_SYSTEM €EQ 1 
02A 66 ASSUME PFNSC_GLOBAL €Q ¢ 
02A 67 ASSUME PFNSC_GBLWRT EQ 
02A 68 ASSUME PFNSC_PPGTBL EQ 4 
8 A 269 ASSUME PFNSC_GPGTBL €Q 5 
02A 2ut CASE R1,<- 
02A 276 PROCESS,=- ;PROCESS PAGE 
02A 57 SYSPHD,=- sSYSTEM PA 
8 e ae BADTYP,- ;GLOBAL READ ONLY 
8 A 5 
A 
02A 
B 
B 
Bé6 
Bé6 


o 

1 

78 

79 

° SYSPHD: 

§ MOVAL @W*MMGSGL_SYSPHD,R5S ;ADDRESS OF SYSTEM HEADER 

BRB HDR 

4 

34 

92 


BB GOTP :JOIN THE COMMON CODE 
Bp PHDR: 
55 53 9900" cr cs B " — SUBL3 We SWPSGL _BALSPT .R3.R5 :NO. OF BYTES INTO SPT BEYOND BALSET BASE 
55 07 78 Oe ASHL = #7,R5S,R =NO. OF SPT ENTRIES * 5 
06 11 C7 BRB GETPHOR [GET PROCESS HEADER ADDRESS 
9 PROCESS: . 
55 53 Q000'CF C3 C9 eis SUBL3 W*SWPSGL_BALBASE,R3,R5 ;NO. OF BYTES BEYOND FIRST BAL SET PAGE 
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WRIMF YPAG - WRITE M :58 VAX/VMS Macro v04-00 Page 13 
04-000 GETPENCTX mit ae He eS wan: « 
essen | c6 CF 86593 DIVL SuPSGL | BSLOTSZ, ARS ;FORM PROCESS HEADER INDEX 
D6 «594 ASHL ‘DIVIDE BY PAGE SIZE 
ax 000 00" FF gs D 95 MULL cur$e L’BSLOTSZ,R5 SCONVERT PROCESS INDEX 
¢ E 36 ROTL &9,R ‘MULL BY BYTES PER PAGE 
55 = 0000" er C E6 37 eniead ADDL  wW*SwP$Gi_BALBASE,R5 :TO0 PROCESS HEADER ADDRESS 
52 0000'DF40 3 EB 599 “MOVZWL = @W*PFNSAW_SWPVBNCROJ,R2 ;1S SWPVBN SET? 
oc 1 F 690 BNEQ ‘BRANCH IF YES 
52. 0000'DF40 OD FS 6 1 MOVL § @W*PFNSAL_BAKCROJ,R2 GET BACKING STORE ADDRESS 
Fog : ASSUME PFNSV_GBLBAK go PTESV_TYPO+1 
51 52 02 16 FF r9 ‘ 4 #PTESU_TYPO,#2,R2,R1 ;GET BACKING STORE ADDRESS TYPE 
FF O08 40$: 
FF 60 ASSUME PFNSC_PROCESS EQ 0 
0000'DF40 07 93 OFF 608 BIT8  #PFNSA_PAGTYP,aW*PFNSAB_TYPECR2] ;REQUIRE SWPVBN PAGE TO BE PROCESS 
04 12 0305 609 BNEQ $ :BRANCH IF NOT 
51 03 BO 0307 610 MOVL #3,R1 [CODE FOR suPVEN BACKING DESTINATION 
0308 612 60$:  BUG_CHECK BADSWPVBN,FATAL ;SWAP VBN ONLY FOR PROCESS PAGES 


d 13 
WRIMFYPAG - WRITE MODIFIED PAGES 1 ~SEB= 1984 01:33:58 VAX/ViNS Macro V04-00 Page 14 3 
v04-000 PTESCAN = SCAN ADJACENT PTE'S -SEP-1984 03:58:41 (CSYS.SRCJWRTMFYPAG.MAR; 1 (5) 
F aE .SBTTL PTESCAN = SCAN ADJACENT PTE'S 
F 1 > PTESCAN, ROUTINE TO SCAN ADJACENT PAGE TABLE ENTRIES FOR TRANSITION 
F 617 ; PAGES THAT ARE ON THE MODIFIED PAGE LIST AND HAVE THE APPROPRIATE 
F 618 : BA CKING STOPE ADDRESS FOR CLUSTERING. 
OF 619 ; A SCAN IS MADE BACKWARDS FROM THE SVAPTE AND THEN FORWARDS. 
Hf ‘ 1 : CALLING SEQUENCE: 
F 66 , : BSBW = PTESCAN 
OF 624; 
OF 6 5 ; INPUTS: 
: OF 6 5 : R3 = SVAPTE TO START SCANNING FROM 
OF 628: R5 = PROCESS HEADER ADDRESS ASSOCIATED WITH THAT SVAPTE 
O30F 629: R6 = INDEX TO NEXT AVAILABLE SLOT IN MODIFIED PAGE WRITER 
O30F 630: PTE AND PHVINDEX ARRAYS 
0 OF 631 : R7 = PAGE FILE INDEX I E FILE PAGE, TYPO BIT CLEAR 
03 Ba : : = SECTION BACKING STORE ADDRESS IF TYPO BIT SET 
OF 633; RB = FILE VBN TO USE IF SCANNING FOR PAGE FILE PAGES 
O30F Bf : R9 = MAXIMUM NUMBER OF PAGES TO FIND 
030 636 : OUTPUTS: 
O30F 638 : Rs UPDATED TO POINT TO NEXT SLOT NOT USED 
O30F 639: RB = FIRST PAGE FILE VBN NOT USED 
O30F 640 : R4,RS,R7 PRESERVED 
O30F 641: RO.R1.R2,R3 SCRATCHED 
0308 he ; R9,R10,R11,AP SCRATCHED 
0308 644 CHK ACCESS: 
51 53 15 O09 EF O30F 645 EXTZV #VASV VPN, AVASS VPNR3,R1_ ZINDEX INTO SYSTEM PAGE TABLE 
0000'DF41 0S 0314 646 TSTL au" AMGSGL *SPTBASECRI] | ;18 THIS PAGE oF PAGE TABLE ENTRIES VALID 
6F 18 19 64 BGEQ SCAN_FORWARD oT ANH IF 
18 «11 18 648 nee SCAN-NEXT1 
5c 53 dO 031D 650 “MOVL E SV VAPTE 
51 53 15 O98 EF 03 9 651 EXT2ZV Bakey VPN, #VASS_VPN,R3, ri> ‘KEEP P AGE NUMBER OF SVAPTE 
5B 04S CCE 3 63¢ MNEGL #4,RI1T :GOING BACKWARDS LOOKING AT PTE'S 
58 11 6 : 633 RB SCAN_AGAIN tLOOK AT NEXT PAGE TABLE ENTRY 
: A 699 : NOTE THAT R1 = PAGE NUMBER OF AN ACCESSABLE PTE 
A 639 SCAN _NEXT: 
53 58 SA C1 A 6 8 ADDL3 R10 FORM NEXT SVAPTE TO CHECK 
51 53 15 09 ED ; 65 CMPZV AN th Poy #VASS_VPN,R3, ri :PTE IN SAME PA 
DA i2 660 “th weatie CHK_ACCESS ;BRANCH IF NOT, CHECK ACCESSABILITY 
50 63 78800000 8F CB 3 66¢ BICL3 ecotese VALID 
dD 66 PTESM_TYPT ! Presm. TYPO !- 
D 664 PTESM-PGFLVB>,(R3),RO :GET PFN IF TRANSITION PAGE 
48 «13 D 665 BEQL SCAN ORWARD RANCH IF DEMAND ZERO PAGE 
52 50 EA8F 7 : 666 ASHL  #-PTESV_TYPO,RO,R2 ‘VALID, TYP1, TYPO ALL ZERO? 
cao: ® 4466 BNEQ SCA ORWARD RANCH IF NOT TRANSITION PAGE 
0000'cF 50 : 46 668 CMPL ORR W™RAGSGL MAXPFN [1S THIS A LEGAL PFN 
D 14 0348 $ BGTR SCAN FORWARD :NO (ALSO REJECTS Ot ioow PAGES) 
03 00 ED 0340 670 CMPZV SPRNSVS otoe. #PFNSS_LOC,- :SEE IF ON MODIFIED PAGE LIST 


E 13 
WRIMF YPAG = WRITE MODIFIED PAGES 16-SEP-1984 :58 VAX/VMS Macro V04-00 Page 15 
v04-000 PTESCAN = SCAN ADJACENT PTE'S -SEP-1984 Z 83 He 23 Heys. SRCJWRTMFYPAG.MAR; 1 en | 
01 0000'DF4 7 aW*PFNSAB_STATECRO],#PFNSC_MFYPAGLST 
330 CY 7 BNEQ SCAN FOR RWARD :BRAN ANCH IF lO! ON MODIFIED PAGE LIST 
0000'pF4 e 7 TSTW  aW*PFNSAW SWPVBNCROJ F SWAP vB N PAGE, 
¢ C 674 BNEQ SCAN ‘ON T USE IT 
0000'DF40 D E 675 CMPL =—«R3,, aD“ PFNSAL_PTECROJ i CHECK FOR SPURIOUS MATCH 
ee 6 676 BNE SCAN ARD ANCH IF SPURIOUS 
52 0000"DF 40 D 66 «67 MOVL — @W*PENSAL aBAKCROJ R2 eet BACKING STORE ADDRESS 
0D 57 16 € 6 678 BBS #PTESV_”PO,R7,60$ ‘BRANCH IF SECTION ADDRESS 
f 6 0 ; PAGE FILE PAGE, REQUIRE ANOTHER PAGE FILE PAGE WITH SAME PAGE FILE INDEX 
16 53 16 EO 037 6 g BBS #PTESV_TYPO,R2,SCAN_ FORWARD sBRANCH IF SECTION PAGE 
57 Sz 08 1 ED 74 CMPZV #PFNSV-PGFLX, MPFNSS -PGFLX R2. R’ SAME PAGE FILE INDEX? 
07 «1 79 684 BEQL § S$CAN_AGAIN TBRANCH IF. YES 
0 11 £8 : 5 BRB SCAN~ FORWARD Not NC AME PAGE FILE 
4 6 2 ; SECTION PAGE, MUST CHECK FOR SECTION BACKING STORE TYPE AND SAME BACKING STORE 
57 52 D1 6 7D 689 0S: CMPL = R2,R7 ;SAME SECTION? 
08 12 0380 690 SCAN_FORWARD ‘BRANCH IF NOT 
38 691 SCAN_AGAIN 
SA 53) sé088 69¢ MOVL —-RBLR 10 sADDRESS OF LAST PTE CHECKED 
a2 59 «FS «(038569 SOBGTR Ra's NEXT ‘BRANCH IF MORE PAGE FILE VBN'S TO USE 
0388 694 ; INCL Pe apust BACKUPFAIL(R11) : COUNT FAILURE FOR EITHER DIRECTION 
10 11 0388 695 BRB SCAN DONE SALLOCATED PAGE PrLe EXHAUSTED, 
0 BA 696 ‘WRITE THE CLUSTER 
038A 698 ; PTE SCAN CANNOT PROCEED IN CURRENT DIRECTION, SWITCH TO SCAN FORWARD 
03a $39 3 IF NOT ALREADY SCANNING FORWARD 
03 A 701 SCAN_FORWARD: 
58 «5B ce 38A 108 MNEGL R11,R11 ;SWITCH DIRECTION OF PTE SCA 
0B 19 O38D 70 BLSS  SCAN_DONE :PTE SCAN COMPLETE IF ALREADY SCANNED FORWAR 
53 5C «DO O38F 104 MOVL  AP,R3 'GET STARTING PTE ADDR 
5c «=O SA~—Ciéi 332 705 MOVL  R10,AP TRECORD THIS AS STARTING PTE ADDRESS 
9 706 sSINCE IT IS a: THAN STARTING PTE 
SA 53) «D0 «(0395S 707 MOVL R10 [START FORWARD FROM ORIGINAL START PTE 
90 «(11 0 98 , : BRB ean NEXT [CONTINUE THE PTE SCAN 
394 710 : AP = SVAPTE, R10 IS THE OTHER SVAPTE, NOT NECESSARILY IN ORDER 
9A 711 : R7 = PAGE FILE INDEX OR SECTION BACKING STORE ADDRESS 
9A ar : IF PTESV_TYPO IS SET, NO BACKING STORE MANIPULATION 
9A 713 : RO PRESERVED FROM HERE 
A fie : : R10 PRESERVED FROM HERE ON IF AP LEQU R10 eR 
9A 16 SCAN. DONE : ER 
SA SC. Ot sOO39A 71 CMPL AP, R10 :GET PTE ADDRESSES IN ORDER ER 
wee 9D £18 BLEGU 40$ ‘BRANCH IF R10 1S TOP OF RANGE 6) 
5 AD 9F 671 R10,R SSAVE BOTTOM OF RANGE 6) 
a oes Ag 720 MOVE AP,R1 sHIGH END OF RANGE 6) 
5 0 D A f 1 MOVL  RO.AP [LOW END OF RANGE é) 
AB 7 ¢ i ; AP = FIRST Ratz ADDRESS R10 = tas PTE ADDRESS INCLUSIVE 6) 
AB 72h: ALL HESE PTE'S ARE ON THE MODIFIED PAGE LIST AND 6) 
A u 5: ARE EROR’ The CARE PAGE FILE OR SECTION 
58 8C FFEOOOOO 8F cB O3A8 7 § 40$:  BICL3 #*C<PTESM_PFN>,(AP)+,R11 :GET PAGE FRAME NUMBER 


WRTMF YPAG = WRITE MODIFIED PAGES 16-SEP-1984 01:33:58 VAX/VMS Macro V04-00 Page 1 
v04-000 PTESCAN = SCAN ADJACENT PTE'S §-8 ety 84:33:28 YOYS SRCTURTAFYPAG MAR: 1 ° (8) 
0000'DF46 58 00 80 : MOVL  R11,a@W*MPWSAL_PT [R6] sSTORE PFN IN pr ARRAY $} 
0004'DF46 42 a5 8B B MOVW § PHDS$W_PHVINDER(RS) ,aw°MPWSAW PHVINDEXCR6) ;STORE THE ASSOCIATED al 
D6 BD INCL R6 sNEXT PTE INDEX E) 
BF 7 PROCESS HEADER VECTOR INDEX E) 
BF ; INCL mPus COUNT ;COUNT PAGES IN THIS CLUSTER E) 
1957 16 € BF BBS #PTESO_TYPO,R7,65$ “BRANCH IF SECTION PAGE e) 
0000'DF4B OO7FFFFF BF OD C3 4 BITL  #PFNSM~BAK,@W°PFNSAL_BAKLR11] ;NO BACKING STORE? E) 
4 1 CD) 0735 BNEQ BRANCH IF THERE IS ONE, BUGCHECK E) 
a oe | 7 «Be $ ASHL. #PFNSV_PGFLX,R7,R2 : FILE INDEX TO ITS BACKING STORE FIELD 
0000'pF4B «458 C 03 7 BISL3 R2,RB,GW*PFNSAL.BAKCR11] ;AND RECORD IT IN THE BACKING STORE ADR 
6 Bat. 2 8 INCL R ;NEXT PAGE FILE VBN 
59 8 p DC 40 739 -65$: movL R11,R0 3PFN TO CONVENTIONAL REGISTER 
1 A O3DF 740 MOVZBL #PFNSC_MFYPAGLST,R2 s INDEX TO MODIFIED PAGE LIST 
FCiB' 30 Eg 74) BSBW = MMGSREMPFN “REMOVE PAGE FROM MODIFIED PAGE LIST 
87 BF BB OE fag BICB3 #<PFNSM_MODIFY ! PENSM_LOC>,- ;SHUT OFF MODIFY BIT 
51 0090"DF 40 cB 7% aw*PFNSAB_STATECRO], 
0000'DF40 3651S 0S: ss BD CORED «= 744 BISB3 #PFNSC_WRTINPROG,R1,aW°PFNSAB_STATECRO] ;SET WRITE IN PROGRESS 
0000"DF 49 B6 O3F4 745 INCW  aW*PFENSAW REFCNTCROS :AND COUN 1/0 REFERENCE 
0 09 ED O3F9 746 CMPZV #PFNSV_PAGTYP,#PFNSS_PAGTYP,- :IF PROCESS PAGE TABLE PAGE 
04 0000'DF4 0 Te 7 aw*PFNSAB_TYPELRO),#PFNSC_PPGTBL 
09 12 0401 748 BNEQ 80% 
51 42 A5 3C 0403 749 MOVZWL PHD$W_PHVINDEX(R5),R1 ;THEN MUST COUNT A PROCESS HEADER REF 
0000'DF41 B86 0407 750 INCW aW*PHOSGL_REFCBASCA1) 
5A 6 5C)—CliéisSCO040C)~—Os 751 -B0S: CMPL AP, R10 :DONE LAST PTE IN RANGE? 
97 1B O40F 136 BLEGU 40$ ‘BRANCH IF MORE TO DO 
of 1 ph Eien 
gc13 138 100$: BUG_CHECK MODRELNBAK,FATAL ;BACKING STORE VBN FOR MODIFIED PAGE 
0416 757 END 
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-» PFN 
4 ee 
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BIT 
BUGS _ -BADPAGTYPE 


GET_IRP 

GET mar CLUSTER 
GET" PAGE_TYP 
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Tocsau. IRPFL 
IPL$_ SYNCH 
RP$B_P: 


IRP$C_ ~CENGTH 


MAGSDEALLOCPAG 
MMGSDECPHDRE F 1 
MMG PFN 


MAX 
MMGSGL— opassueyc 
MMGS$GL~_SPTBASE 
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MMG PHD 
MMGSINTBLDPKT 
MMGSINSPFANT 
MMGSREF CNTNEG 

MMGSRELPFN 
MMGSREMPFEN 
MMGSWRTHF YPAG 


MPWSAW_PHV INDEX 
MPWSGL_BADPAGTOTAL 
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! Performance indicators ! 


$mowenoce sane aae eae wren eccoen 


Phase Page faults cPU Time Elapsed Time 


Initialization 9 :00:00. :00:00.89 
Command processing 16 : ‘06:98 : ‘8 8 
Pass 1 3 : ht $8 00:4 “$9 
synbol table sort 15 :00:01.79 :00:05.11 
arate table output 19 :Q00: “$8 : " 
Psect synopsis output :00:00. 3 : : 

Cross-reference output 8: :00. 0:00:00. 2 
Assembler run totals 641 : 16.94 0:01:07. 


The tine set Limit was 1500 pages. 
bytes (154 pages) of virtual memory were used to buffer the smepresrvete ggde 
i were 60 pages of symbol table nae at ecatee to hold 1159 non-local and 39 local symbols. 
source Lines were read in Pass 1, producing Ste object records in Pass 2. 
32 pages of virtual memory were used to define 30 macros. 


Macro library name Macros defined 


“$3 ggSDUAgE: Svs. -OBJJLIB.MLB;1 19 
“$255$DUA2 SYSLIBJSTARLET. MLB; 2 
TOTALS (all Libraries) 2 


1289 GETS were required to define 27 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:WRTMF YPAG/OBJ=OBJ$:WRTMFYPAG MSRC$:WRTMF YPAG/UPDATE=(ENHS:WRIMF YPAG) +EXECML$/LIB 
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